home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 4 / CU Amiga Magazine's Super CD-ROM 04 (1996)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1996-11].iso / magazine / psion / utils / jamv5.lzx / jam.mcr next >
Text File  |  2009-05-23  |  3KB  |  117 lines
  1. rem This is a sample Macro for use with MACRO SYSTEM
  2. rem Please read contents before using
  3. rem This MACRO is not supported by the Author of JAM so use at your own risk
  4. rem You will need to make modifications to it before use.
  5.  
  6.  
  7. proc macro:
  8.     local ret%,pid%
  9.     beep:(8,750)
  10.  
  11. REM Turn on Log File
  12.  
  13.     logon:("JAMacro.wrd")
  14.     pause 200
  15.     beep:(4,1500)
  16.  
  17. REM Write to Log File using Log:
  18.  
  19.     log:(datim$)
  20.     log:("JAMV5 Macro Started")
  21.  
  22.  
  23. REM (app,1) will kill if locked 
  24. REM (app,0) will NOT kill if locked
  25. REM Apps displaying dialogues and Menus will be killed
  26.  
  27. REM Quit JAM First
  28.  
  29.     ret%=quit:("JAMV5",0) REM do not kill if locked
  30.  
  31. REM JAM is locked during adding entries and during the processing phase
  32.  
  33.     if ret%<>0
  34.         log:("Could not Quit JAM")
  35.         logoff:
  36.         goto finish::
  37.     endif
  38.  
  39. REM Now quit any applications which are memory hungry
  40. REM It may be better to do some memory checking instead.
  41. REM Add or remove appplications from here as necessary
  42. REM 2nd param=0 for clean exit or 1 to kill if application is in menu or dialogue
  43.  
  44.     ret%=quit:("JbData",0) 
  45.     ret%=quit:("Word",0) 
  46.     ret%=quit:("Ace",0) 
  47.     ret%=quit:("World",1)  rem I'm not worried about losing data in this APP
  48.     ret%=quit:("Calc",1)  rem I'm not worried about losing data in this APP
  49.     ret%=quit:("Sheet",0)
  50.  
  51. REM Now launch JAM
  52.  
  53. REM Flag file prevents JAM creating window to save memory
  54.  
  55.     if not exist("M:\OPD\jam5mac.flg")
  56.         log:("Creating Flag File")
  57.         trap create "M:\OPD\jam5mac.flg",D,a$
  58.         if err<>0
  59.             log:("Error creating M:\OPD\JAM5MAC.FLG")
  60.             log:(err$(err))
  61.         else
  62.             trap close
  63.         endif
  64.     endif
  65.  
  66. REM ######Replace location of Jam and name of your Agenda File here####
  67.     
  68.     
  69.     runapp:("A:\app\jamv5.opa","B:\agn\1996.agn")
  70.  
  71. finish:: 
  72.     log:(datim$)
  73.     log:("Finished")
  74.     logoff:
  75.     busy off
  76. REM Now you could launch the log file.
  77. REM Which saves having to find it !
  78. REM Would need to close it before next time!
  79. REM Runappc:("Word","M:\wrd\jamacro.wrd")
  80.  
  81. endp
  82.  
  83. proc quit:(app$,kill%)
  84.  
  85.     local pid%,lock%,dialog%,menu%
  86.  
  87.     Giprint "Checking for "+app$
  88.     Log:("Checking for "+app$)
  89.  
  90.     pid%=app2pid%:(app$)
  91.     if pid%<>0
  92.         log:("Found "+app$)
  93.         useapp:(app$)
  94.         lock%=info:(1)    REM is app locked?
  95.         dialog%=info:(2)REM is app showing dialogue?    
  96.         menu%=info:(3)    REM is app showing menu?
  97.         log:("Lock="+num$(lock%,3)+" Dialog="+num$(dialog%,3)+" Menu="+num$(menu%,3))
  98.  
  99. REM kill if kill allowed
  100.         if (dialog%=1 or menu%=1) and kill%=1
  101.             log:("Killing "+app$)
  102.             kill:
  103.         else
  104. REM exit if not locked
  105.             if lock%=0 
  106.                 log:("Exiting "+app$)
  107.                 exit:
  108.             else
  109.                 log:(app$ +" is Locked")
  110.                 return 1
  111.             endif
  112.         endif
  113.     endif
  114. endp
  115.  
  116.  
  117.